home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / ansi.swg / 0026_Direct ANSI write.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  757b  |  27 lines
  1. {
  2. From: ROBERT LONG
  3. Subj: Ansi Graphics - TP 6.0
  4. ---------------------------------------------------------------------------
  5. JP>If anyone knows how to do Ansi Graphics in Turbo Pascal 6.0 any help would b
  6. JP>appreciated.  I'm writing a BBS Door a lot like Dungeons & Dragons and want
  7. JP>add some Ansi Graphics to it.  Please Help
  8.  
  9. I assume you mean you want to send ansi graphics to the local screen. If
  10. so this routine works very well.
  11.  
  12. You can use this routine with or without the CRT unit. All output will
  13. be routed through the BIOS. You must have the ANSI.SYS driver loaded in
  14. your config.sys file.
  15.  
  16. }
  17. procedure  awrite(c : byte);
  18.  
  19.     begin
  20.       asm
  21.         mov ah,2;
  22.         mov dl,c;
  23.         int $21;
  24.       end;
  25.     end;
  26.  
  27.